home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ainet / exclude.frm < prev    next >
Text File  |  1997-08-06  |  5KB  |  183 lines
  1. VERSION 4.00
  2. Begin VB.Form ExcludeMV 
  3.    Caption         =   "Exclude Model Vectors ..."
  4.    ClientHeight    =   3792
  5.    ClientLeft      =   2868
  6.    ClientTop       =   3120
  7.    ClientWidth     =   3732
  8.    Height          =   4176
  9.    Left            =   2820
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3792
  12.    ScaleWidth      =   3732
  13.    Top             =   2784
  14.    Width           =   3828
  15.    Begin VB.CommandButton Delete 
  16.       Caption         =   "Delete"
  17.       Height          =   372
  18.       Left            =   2520
  19.       TabIndex        =   13
  20.       Top             =   2760
  21.       Width           =   852
  22.    End
  23.    Begin VB.CommandButton Include 
  24.       Caption         =   "&Include"
  25.       Height          =   372
  26.       Left            =   1440
  27.       TabIndex        =   10
  28.       Top             =   2760
  29.       Width           =   852
  30.    End
  31.    Begin VB.CommandButton Exclude 
  32.       Caption         =   "&Exclude"
  33.       Height          =   372
  34.       Left            =   360
  35.       TabIndex        =   9
  36.       Top             =   2760
  37.       Width           =   852
  38.    End
  39.    Begin VB.CommandButton Cancel 
  40.       Cancel          =   -1  'True
  41.       Caption         =   "Cancel"
  42.       Height          =   372
  43.       Left            =   1440
  44.       TabIndex        =   11
  45.       Top             =   3240
  46.       Width           =   852
  47.    End
  48.    Begin VB.OptionButton Single 
  49.       Caption         =   "&Single Model Vector"
  50.       Height          =   252
  51.       Left            =   480
  52.       TabIndex        =   1
  53.       Top             =   1560
  54.       Width           =   1692
  55.    End
  56.    Begin VB.TextBox Index 
  57.       Height          =   288
  58.       Left            =   2520
  59.       TabIndex        =   8
  60.       Top             =   1920
  61.       Width           =   492
  62.    End
  63.    Begin VB.Frame Frame2 
  64.       Height          =   732
  65.       Left            =   360
  66.       TabIndex        =   12
  67.       Top             =   1680
  68.       Width           =   3012
  69.       Begin VB.Label IndexText 
  70.          Alignment       =   1  'Right Justify
  71.          Caption         =   "Inde&x of model vector:"
  72.          Height          =   252
  73.          Left            =   120
  74.          TabIndex        =   7
  75.          Top             =   240
  76.          Width           =   1932
  77.       End
  78.    End
  79.    Begin VB.TextBox Last 
  80.       Height          =   288
  81.       Left            =   2520
  82.       TabIndex        =   6
  83.       Top             =   960
  84.       Width           =   492
  85.    End
  86.    Begin VB.TextBox First 
  87.       Height          =   288
  88.       Left            =   2520
  89.       TabIndex        =   4
  90.       Top             =   600
  91.       Width           =   492
  92.    End
  93.    Begin VB.OptionButton Range 
  94.       Caption         =   "Model Vector &Range"
  95.       Height          =   252
  96.       Left            =   480
  97.       TabIndex        =   0
  98.       Top             =   240
  99.       Width           =   1812
  100.    End
  101.    Begin VB.Frame Frame1 
  102.       Height          =   1092
  103.       Left            =   360
  104.       TabIndex        =   2
  105.       Top             =   360
  106.       Width           =   3012
  107.       Begin VB.Label LastText 
  108.          Alignment       =   1  'Right Justify
  109.          Caption         =   "The &last MV in the range:"
  110.          Height          =   252
  111.          Left            =   120
  112.          TabIndex        =   5
  113.          Top             =   600
  114.          Width           =   1932
  115.       End
  116.       Begin VB.Label FirstText 
  117.          Alignment       =   1  'Right Justify
  118.          Caption         =   "The &first MV in the range:"
  119.          Height          =   252
  120.          Left            =   120
  121.          TabIndex        =   3
  122.          Top             =   240
  123.          Width           =   1932
  124.       End
  125.    End
  126. End
  127. Attribute VB_Name = "ExcludeMV"
  128. Attribute VB_Creatable = False
  129. Attribute VB_Exposed = False
  130. Private Sub Cancel_Click()
  131.     MainForm.Ret = 0
  132.     Hide
  133. End Sub
  134.  
  135. Private Sub SetupControls()
  136.     If Range = True Then
  137.         first.Enabled = True
  138.         last.Enabled = True
  139.         index.Enabled = False
  140.         first.SetFocus
  141.         FirstText.Enabled = True
  142.         LastText.Enabled = True
  143.         IndexText.Enabled = False
  144.         Delete.Enabled = False
  145.     Else
  146.         first.Enabled = False
  147.         last.Enabled = False
  148.         index.Enabled = True
  149.         index.SetFocus
  150.         FirstText.Enabled = False
  151.         LastText.Enabled = False
  152.         IndexText.Enabled = True
  153.         Delete.Enabled = True
  154.     End If
  155. End Sub
  156.  
  157. Private Sub Delete_Click()
  158.     MainForm.Ret = 3
  159.     Hide
  160. End Sub
  161.  
  162. Private Sub exclude_Click()
  163.     MainForm.Ret = 1
  164.     Hide
  165. End Sub
  166.  
  167. Private Sub Form_Activate()
  168.     If Range = True Then Delete.Enabled = False
  169. End Sub
  170.  
  171. Private Sub Include_Click()
  172.     MainForm.Ret = 2
  173.     Hide
  174. End Sub
  175.  
  176. Private Sub Range_Click()
  177.     SetupControls
  178. End Sub
  179.  
  180. Private Sub Single_Click()
  181.     SetupControls
  182. End Sub
  183.